home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / MOVIES.DIR / 00066_Script_66 < prev    next >
Text File  |  1995-11-15  |  714b  |  26 lines
  1. on mouseDown
  2.   set mr = the movieRate of sprite 12
  3.   
  4.   set the movieRate of sprite 12 = 0
  5.   set len = the duration of cast (the castNum of sprite 12)
  6.   set w = the width of sprite 12
  7.   
  8.   set l = the left of sprite 12
  9.   set r = the right of sprite 12
  10.   
  11.   set h = the mouseH
  12.   if h > r then set h = r
  13.   else if h < l then set h = l
  14.   
  15.   set the locH of sprite 15 = h
  16.   set the movieTime of sprite 12 = ((h-l)*len)/w
  17.   updateStage
  18.   
  19.   if mr = 0 then
  20.     global gMovieLabel, gMovieTimeCO, gMovieTimeCR, gMovieTimeFO, gMovieTimeSP
  21.     do "set gMovieTime"&char 1 to 2 of gMovieLabel & " = the movieTime of sprite 12"
  22.     playMovie
  23.   else  
  24.     set the movieRate of sprite 12 = 1
  25.   end if
  26. end